home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_05_1985_Transactor_Publishing.d64 / doke & deek (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  58 lines
  1. 0 rem doke & deek (aug 24/84)         :
  2. 1 :
  3. 2 rem  1 statement,  1 function
  4. 3 :
  5. 4 rem keyword characters:  9
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem s/doke      dok      2636    007
  9. 8 rem f/deek(     deek     2674    008
  10. 9 :
  11. 10 rem u/usfp (2620/006)
  12. 11 :
  13. 12 rem ================================
  14. 13 :
  15. 102 .asc "dok[197]"
  16. 601 .asc "deek[168]"
  17. 1102 .word dok-1
  18. 1601 .word deek-1
  19. 2620 usfp ldx #0 
  20. 2622 stx $0d     
  21. 2624 sta $62     
  22. 2626 sty $63     
  23. 2628 ldx #$90    
  24. 2630 sec         
  25. 2632 jmp $bc49
  26. 2634 ;
  27. 2636 dok jsr $ad8a 
  28. 2638 jsr $b7f7     
  29. 2640 jsr $aefd     
  30. 2642 lda $14       
  31. 2644 sta t3        
  32. 2646 lda $15
  33. 2648 sta t4
  34. 2650 jsr $ad8a     
  35. 2652 jsr $b7f7     
  36. 2654 lda $14       
  37. 2656 ldy #0        
  38. 2658 sei           
  39. 2660 sta (t3),y    
  40. 2662 lda $15       
  41. 2664 iny           
  42. 2666 sta (t3),y    
  43. 2668 cli           
  44. 2670 rts
  45. 2672 ;
  46. 2674 deek jsr $aef4 
  47. 2676 jsr $ad8d      
  48. 2678 jsr $b7f7      
  49. 2680 ldy #1         
  50. 2682 lda ($14),y    
  51. 2684 pha
  52. 2686 dey            
  53. 2688 lda ($14),y    
  54. 2690 tay
  55. 2692 pla
  56. 2694 jmp usfp       
  57. 2696 ;
  58.